﻿Public Class ThuVien
    Private Function auto_sThoiGian() As String
        Dim sNgayThangNam As String, sGioPhutGiay As String, sMiliGiay As String
        sNgayThangNam = Now.Day.ToString + Now.Month.ToString + Now.Year.ToString
        sGioPhutGiay = Now.Hour.ToString + Now.Minute.ToString + Now.Second.ToString
        sMiliGiay = Now.Millisecond.ToString()
        Return sNgayThangNam + sGioPhutGiay + sMiliGiay
    End Function
    Public Function auto_sMaHangH6oa() As String
        Return "HH" + auto_sThoiGian()
    End Function
    Public Function auto_sMaKhachHang() As String
        Return "KH" + auto_sThoiGian()
    End Function
    Public Function auto_sMaNCC() As String
        Return "CC" + auto_sThoiGian()
    End Function
    Public Function auto_sMaNhapHang() As String
        Return "NK" + auto_sThoiGian()
    End Function
    Public Function auto_sMaDatHang() As String
        Return "DH" + auto_sThoiGian()
    End Function
    Public Function auto_sMaThu() As String
        Return "THU" + auto_sThoiGian()
    End Function
    Public Function auto_sMaChi() As String
        Return "CHI" + auto_sThoiGian()
    End Function
    Public Function auto_sMaXuatKho() As String
        Return "XK" + auto_sThoiGian()
    End Function
End Class
